'   W r i t t e n   b y   C r a i g ' n ' D a v e 
 
 M o d u l e   M o d u l e 1 
 
         '   M e r g e   s o r t   u s i n g   r e c u r s i o n   m e t h o d   2 
 
         '   T h i s   v e r s i o n   o f   a   m e r g e   s o r t   p o p s   i t e m s   o u t   o f   t h e   s u b - l i s t   w h e n   m e r g i n g   u n t i l   n o n e   a r e   l e f t 
 
         F u n c t i o n   m e r g e _ s o r t ( i t e m s   A s   L i s t ( O f   S t r i n g ) ) 
 
                 '   S p l i t   s t e p 
 
                 I f   i t e m s . C o u n t   =   1   T h e n 
 
                         R e t u r n   i t e m s 
 
                 E l s e 
 
                         D i m   m i d   A s   I n t e g e r   =   i t e m s . C o u n t   \   2 
 
                         D i m   l i s t 1   A s   L i s t ( O f   S t r i n g )   =   i t e m s . S k i p ( 0 ) . T a k e ( m i d ) . T o L i s t 
 
                         D i m   l i s t 2   A s   L i s t ( O f   S t r i n g )   =   i t e m s . S k i p ( m i d ) . T a k e ( i t e m s . C o u n t   -   m i d ) . T o L i s t 
 
 
 
                         l i s t 1   =   m e r g e _ s o r t ( l i s t 1 ) 
 
                         l i s t 2   =   m e r g e _ s o r t ( l i s t 2 ) 
 
                         '   M e r g e   s t e p 
 
                         R e t u r n   m e r g e ( l i s t 1 ,   l i s t 2 ) 
 
                 E n d   I f 
 
         E n d   F u n c t i o n 
 
 
 
         F u n c t i o n   m e r g e ( l i s t 1   A s   L i s t ( O f   S t r i n g ) ,   l i s t 2   A s   L i s t ( O f   S t r i n g ) ) 
 
                 D i m   n e w _ l i s t   A s   N e w   L i s t ( O f   S t r i n g ) 
 
                 D o   W h i l e   l i s t 1 . C o u n t   >   0   A n d   l i s t 2 . C o u n t   >   0 
 
                         '   C h e c k   e a c h   i t e m   i n   e a c h   l i s t ,   a n d   a d d   t h e   s m a l l e s t   i t e m   t o   a   n e w   l i s t 
 
                         I f   l i s t 1 ( 0 )   <   l i s t 2 ( 0 )   T h e n 
 
                                 n e w _ l i s t . A d d ( l i s t 1 ( 0 ) ) 
 
                                 l i s t 1 . R e m o v e A t ( 0 ) 
 
                         E l s e 
 
                                 n e w _ l i s t . A d d ( l i s t 2 ( 0 ) ) 
 
                                 l i s t 2 . R e m o v e A t ( 0 ) 
 
                         E n d   I f 
 
                 L o o p 
 
 
 
                 '   A d d   l e f t   o v e r   i t e m s   f r o m   t h e   r e m a i n i n g   l i s t 
 
                 D o   W h i l e   l i s t 1 . C o u n t   >   0 
 
                         n e w _ l i s t . A d d ( l i s t 1 ( 0 ) ) 
 
                         l i s t 1 . R e m o v e A t ( 0 ) 
 
                 L o o p 
 
 
 
                 D o   W h i l e   l i s t 2 . C o u n t   >   0 
 
                         n e w _ l i s t . A d d ( l i s t 2 ( 0 ) ) 
 
                         l i s t 2 . R e m o v e A t ( 0 ) 
 
                 L o o p 
 
                 R e t u r n   n e w _ l i s t 
 
         E n d   F u n c t i o n 
 
 
 
         '   M a i n   a l g o r i t h m   s t a r t s   h e r e 
 
         S u b   M a i n ( ) 
 
                 D i m   i t e m s   A s   N e w   L i s t ( O f   S t r i n g )   F r o m   { " F l o r i d a " ,   " G e o r g i a " ,   " D e l a w a r e " ,   " A l a b a m a " ,   " C a l i f o r n i a " } 
 
                 i t e m s   =   m e r g e _ s o r t ( i t e m s ) 
 
                 C o n s o l e . W r i t e L i n e ( S t r i n g . J o i n ( " ,   " ,   i t e m s ) ) 
 
         E n d   S u b 
 
 E n d   M o d u l e 
 
 